﻿Public Class PatternQuery
    Inherits LoverQuery

    Public Property HueOption As HueOption?
        Get
            If Me.ContainsKey("hueOption") Then
                Return Me!hueOption
            End If
        End Get
        Set(ByVal value As HueOption?)
            If value IsNot Nothing Then
                Me!hueOption = value
            Else
                Me.Remove("hueOption")
            End If
        End Set
    End Property
    Public Property Color As System.Drawing.Color
        Get
            If Me!hex IsNot Nothing Then
                Return Me!hex.ToString.ToColor
            End If
        End Get
        Set(ByVal value As System.Drawing.Color)
            Me!hex = Color.ToHTML
        End Set
    End Property
End Class
